home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / bestofsd.lha / Star1.AMOS / Star1.amosSourceCode
AMOS Source Code  |  1992-10-20  |  1KB  |  41 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Dim SPD(7),X(7),A$(7)
  10. For A=0 To 7
  11.    Read YSIZE,SPD(A),OFFSET
  12.    Screen Open A,640,YSIZE,2,Lowres : Flash Off : Curs Off : Hide 
  13.    Screen Display A,140,52+OFFSET,320,256
  14.    For Z#=0 To 511
  15.       Plot Rnd(319),Rnd(YSIZE-1)
  16.    Next 
  17.    Screen Copy A,0,0,320,YSIZE To A,320,0
  18.    Channel A To Screen Offset A
  19.    A$="S:LR1=R1+"+Str$(SPD(A))+";LX=R1/2;IX>318JB;P;JS"
  20.    A$=A$+"B:LR1=0;P;JS"
  21.    Amal A,A$
  22. Next 
  23.  
  24. Data 228,24,0
  25. Data 172,20,28
  26. Data 124,16,52
  27. Data 84,12,72
  28. Data 52,8,88
  29. Data 28,4,98
  30. Data 12,2,106
  31. Data 8,1,112
  32.  
  33. For A=0 To 7
  34.    Screen A
  35.    Read C
  36.    Palette ,C
  37. Next 
  38. Data $FFF,$DDF,$BBF,$99D,$77B,$559,$448,$337
  39.  
  40. Amal On 
  41. Wait Key : Edit